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TECHNICAL MEMORANDUM X-64991 


TEST PLANE UNIFORMITY ANALYSIS FOR THEMSFC 
SOLAR SIMULATOR LAMP ARRAY 

SUMMARY 

The MSEC Solar Simulaior Lamp Array was analyzed to predict its per- 
formance. The lamp array cor sists of 405 Tungsten-halogen lamps with fresnel 
lenses in a 15 x 27 array. To calculate the expected perfom ance, measure- 
ments were made on a single lamp-fresnel lens combination and a computer 
program was developed to give the total array performance. The report des- 
cribes the computer program and Appendices A and B of the report contain a 
copy and sample run of the program. 

The analysis predicted the edge Intensity in the 1. 2 x 2. 4 m test plane 
( 4 ft X 8 ft) decreased more than 7 percent at the desired 4. 6 m (15 ft) distance 
to the test plane. It was recommended that the distance be reduced to 2. 7 m 
(9 ft) to maintain uniformity within 7 percent of the nominal value. Experimental 
measurements of the lamp-fresnel lens combination showed the total collimation 
angle was 20®, which exceeded the 10® specification. However, no recommenda- 
tion was made to change the fresnel lens since the larger angle will have very 
little effect on collector cover transmission or surface absorption when opera- 
ting near normal incidence. 


INTRODUCTION 


As part of the Solar Ene^jy Program at Marshall Space Flight Center 
(MSFC), a solar simulator lamp array is being constructed to obtain controlled 
experimental data on flat-plate solar collectors. The design of tlie lamp array 
is similar to the simulator now in operation at the Lewis Research Center 
(LeRC), ( Ref. NASA TM-X-3059); however, the MSFC array has a higher 
density of lamps to obtain either higher light intensities or the standard Air Mass 
2 at a lower voltage. An increase in size was necessary to test up to 1. 2- > 

2, 4-m (4- X 8-ft) collectors. The MSFC simulator has 405 Tungsten-halogen 
lamps in a 15- x 27-array. The lamps are General Electric Quartzlinc model 
ELH rated at 120 Vac, 300 \V. The fresnel lenses used are hexagon shape 


12.7 cm (5 in.) across with a 15. 24-cm (6-in.) focal length, as shown in 
Figures 1 and 2. 

To calculate the performance, a measurement program was conducted 
to obtain data on individual lamp-fresnel lens combinations. A computer pro- 
gram was then used to calculate the irradiance uniformity at the test plane from 
the total lamp array. 

This report gives the results of the measurement program, a description 
of the computer program, and the preliminary results of the computer analysis. 



Figure 1. Fresnel lens shape and spacing. 
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Figure 2. Lamp array configuration. 
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TEST APPARATUS 


Several parameters of the lamp, fresnel lens, and lamp-fresnel lens 
combination were measured using the experimental arrangement shown in 
Figure 3. A precision rotation table held the fresnel lens and lamp so tliat the 
intensity versus angle data of the resulting light cone could be measured. For 
the experimental measurements involving relative intensity readings, a Spectra 
Physics Model 401 power meter was used. To measure absolute power output 
of die lamp, a Quantronix Model 504 power meter was used with the watt energy 
detector head. A Dana Model 3800 A Digital Multimeter measured the voltage 
applied to the lamp. 


DETECTOR 




Figure 3. Experimental arrangement to measure parameters of 
lamp-fresnel lens combination. 


DISCUSSION OF TEST 

Tests were first made to measure the intensity profile of the cone of 
light produced by the lamp-fresnel lens combination. During this measurement 
the detector was fixed at 4.6 m (15 ft) from the fresnel lens. The lamp-fresnel 
lens combination was rotated on on axis through the fresnel lens to obtain the 
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intensity readings at various angles. Table 1 presents the result of the measure 
ments averaged on a random sample of 10 fresnel lenses. Figure 4 presents a 
plot of the same data compared to a Gaussian curve. There was little variation 
between individual fresnel lenses. Some nonsymmetrical points were observed 
but the average deviation was less than 5 percent. Measurements were also 
made on a single 25. 4-cm ( 10 in. ) focal length lens of the type used by LeRC. 
Figure 5 presents a comparison of the two lenses with both normalized to the 
centerline Intensity. Figure 6 presents a comparison of the two lenses with the 
LeRC 25. 4-cm ( 10-ln. ) lens normalized in relative power to die MSFC 15, 2- 
cm (6-in. ) focal length lens. The intensity of the LeRC lens is approximately 
2. 4 times that of the MSFC lens in the central region. The larger angle pro- 
vided by the MSFC lens gives better uniformity in the test plane 1^ merging 
more lamps. 


r.\BLE 1. relati\t: intensity versus angle averaged for 

10 FRESNEL LENSES (15.2 cm FOCAL LENGTH) 


Angle ( deg) 

Relative Intensity ( ']'( ) 

Angle (deg) 

Relative Intensity ( ) 

0 

100.0 

6 

24.3 

1 

98.0 

7 

12.5 

2 

93.5 

8 

4.2 

3 

80.0 

9 

2.5 

4 

63.5 

10 

1.8 

5 

42.0 




A random sample of 10 lamps were measured to determine the variation 
in intensity between lamps. The values of intensity measured for the 10 lamps 
are shown in Table 2. The largest variation is 28 percent but since the varia- 
tion is so large, 10 is probably too small a sample size ^o obtain an accurate 
average intensity value for the total lamp array. A larger sample will be 
obtained during buildup of the lamp array when all 405 lamps will be measured. 

The lamp-fresnel lens combination intensity profile was measured at 
various distances from the fresr.el lens. The relative intensity curve shape 
changed very little beyond 2 m (6. 5 ft). At distances less than 2 m, hot spots 
were observed which were attributed to the geometry of the lamp. In all 
measurements at the 4.6-m (15-ft) distance, the lamp was defocused approxi- 
mately 3 mm (0, 1 In. ) to prevent imaging of the lamp and thereby produce a 
smoother intensity profile curve. 


& 
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Figure 4. Plot of relative intensity versus angle for 
MSFC lamp-fresnel lens combination. 
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Figure 5. Comparison of MSFC and LcRC fresnel lenses with 
both lenses normalized to 100 percent. 


RELATIVE INTENSITY ^ PERCENT 
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Figure 6, Comparison of MSFC and LeRC fresnel lenses \^'ith 
LeRC lens normalized to MSFC lens. 
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TABLE 2. RELATIVE INTENSITY MEASURED FROM 10 DIFFERENT LAMPS 


Lamp Number 

Relative Intensity 

Lamp Number 

Relative Intensify 

c>) 

1 

83.1 

6 

86.3 

2 

81.1 

7 

97.6 

3 

84.2 

8 

77.9 

4 

94.7 

9 

100.0 

5 

73.7 

10 

71.6 


Figure 7 shows the measured peak intensities of the relative intensity 
(ip profile curve at various distances ratioed to the peak intensity at 4.6 m 

(15 ft) (Iq)* Also shown is the calculated value tc be expected due to the ratio 

of the inverse r*'\uare of the area covered at each position. The measurements 
agreed ve?y v oU with the calculated values. 



DISTANCE FnOM FRESNEL LENS>^ METERS 


FIGURE 7 PEAK INTENSITY (li) VARIATION WITH DISTANCE 
FROM THE FRESNEL LENS RATIONED TO 
THE INTENSITY AT 4 6 METERS 116 FEET) IIO> 

Figure 7. peax inieiibuy Uj) variation wiui uiotaiice irom the frcsncl lens 
ratioed to the intensity at 4. G m (15 ft) (I^) . 
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A single lamp was measured to detexmine the relative intensity as a 
function of voltage. TaUe 3 gives the results from 60 to 128 V and Figure 8 
shows this voltage versus intensity. In Figure 8 there are two breaks in the 
curve, one at approximately 75 Vac and a second at 100 Vac. The breaks 
are probably related to the Tungsten-halogen cycle. If the Tungsten-halogen 
cycle is no longer operating below 100 Vac, the lamp life may be reduced. 


TABLE 3. RELATIVE INTENSITY AS A FUNCTION OF LAMP VOLTAGE 


Vac 

Relative Intensity ( % ) 

Vac 

Relative Intensity (?f ) 

128 

123 

95 

62 

125 

117 

90 

54 

120 

107 

85 

47 

117 

100 

80 

40 

115 

97 

75 

32 

110 

87 

70 

27 

105 

79 

65 

22 

100 

69 

60 

17 


The irradiance of both the MSEC and the LeRC lamp-fresnel lens com- 
binations at 117 Vac was measured with the Quantronix power met-. The peak 
irradiance measured for the MSFC combination was 4 mW/cm^ (12.7 BTU/h ft^) 
and 9.7 mW/cm^ (30. 8 BTU/h ft^) for the LeRC. The irradiance is only an 
indication of the absolute power due to the large variation in lamps; however, if 
it is representative, then the lamp array should provide 107 mW/cm^ or 340 
BTU/h ft^ at slightly over 100 Vac. 90 Vac would give 80 mW/cm^ (254 BTU/h 
ft^). The irradiance of the lamp array is approximately 37 times the irradiance 
of one lamp. 
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It shoiild be noted that all the aforementioned experimental data were 
taken with the lamp in open air and no forced air cooling. They were operated 
only for short periods of time to prevent damage to the lamp. Since the lamp 
characteristics vaiy with operating temperature, these data should be 
considered preliminary and only designed to catch '*show stoppers*' in construc- 
tion of the solar simulator. 


DISCUSSION OF COMPUTER PROGRAM 


The Lamp Uniformity Analysis Computer Program (LUMP) used to 
analyze the total lamp array is listed in Appendix B. Appendix A is a sample 
run of the program which includes the instructions for the computer monitor. 

The program is written in Fortran IV and is intended to be executed from a time 
share terminal connected to the XDS Sigma V computer located in Building 4487 
at MSFC. 

The technique used to compute the test plane intensity is depicted in 
Figure 9. A point of interest in the test plane (A) is m^ped to lamp positions 
in the lamp array, ( B is an example of one lamp position) . The intensity at A 
from the lamp at B is calculated by first finding the angle ABE, then calculating 
the relative intensity given off by the lamp at that angle. The total power at A 
is found by going through this sequence for all 405 lamps and adding up the 
results. To develop an intensity scan throu^ the test plane, the computer pro- 
gram increments A through different values of X vhile holding Y constant. By 
sequencing X at the same increments as the Y spacing between scans, a regular 
array of data points in the test plane can be generated. The regular array is 
useful for calculating total power at the test plane and obtaining statistics on the 
total surface uniformity. A program is now being written to plot the intensity 
piofile and provide statistics on the intensity surface. It will be described in a 
subsequent TMX. 

To compute the intensity component from each lamp, the assumption is 
made that the cone of li^t from the lamp is rotationally symmetrical. Some 
non-symmetry was noted during the e:q)erimental measurements of the 10 
fresnel lenses but the average deviations were less than 5 percent. When 
averaged over many lamps the assumption should lead to n^ligible errors. 

IVSA is the subroutine of the computer program vhich provides the 
intensity value at different angles. The array AI in the data statement stores the 
relative intensity values in percent at 1“ increments for the ll^t cone intensity 
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Figure 9. Arrangement of test plane to lamp array. 


profile. The range is from 0 to 10* . To obtain values at any angle, the sub- 
routine linearly interpolates between the stored values. Angles greater than 
10* are assigned a zero contribution to the point A. 

To calculate absolute power at the point A for different spacings (0*-0) 
between the test plane and lamp array, power readings at a reference distance 
from the lamp are ratioed by the inverse square rule to obtain power per unit 
area at a different distance. This is the reason for the multiplication factor 
TMFAC, line 87 of the program, in obtaining the intensity contribution from 
each lamp. 
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Data are input to the program through a file assigned to Unit 201, The 
distance between the test plane and the lamp array (SPACE) is input first and 
then an array (TLI) * which has an intensity value for each lamp, is input. This 
was necessary because of the large variation in intensity from individual lamps. 
All other variables that might require frequent changing are stored in the pro- 
gram. The edit capability of the time share monitor makes it practical to 
change only the variable in the program when needed. 

The program has the option to print out the lamp intensity array and the 
X, Y locations assigned to the lamps. The lamp intensity array will be printed 
if NCO is set to some value other than one. The X, Y spacing position of the 
lamps will be printed out if NCODE is set not equal to one. 

The variables NLINES, DELX, TPY, DELY, and SX control the scan 
lines to be calculated. NLINES is the number of scan lines to be calculated, 
TPY is the Y position of the scan line, and DELY is the spacing between scan 
lines. SX is the first part of the scan line and it will be incremented by units 
of DELX. Format statement 650 is Intended as a comment line to label the 
output data page. 

An attempt was made to keep the program as flexible as possible. For 
instance, all Do loops were set with variable limits. The lamp array size can 
be changed from the present 15 x 27 to any size which wUl fit in the arrays as 
dimensioned. The array size is set by assigning the desired values to NLX and 
NLY. 


DISCUSSION OF COMPUTER ANALYSIS 


An array of lamps with equal intensities was used as an input to the com- 
puter program to determine the best uniformity that could be expected at the 
test plane. The uniformity as calculated was very good in the central region of 
the test plane but dropped off at the edge. Figure 10 presents a plot of the 
percent intensity for two scan lines across the narrow direction (X axis) , one 
line in the center and one at the edge. Figure 11 shows the edge and comer 
variations as a function of distance from the lamp array. Figure 12 presents a 
comparison of a similar run on the LeRC array. 

The desired tolerance was 7 percent from the nominal value. Since most 
of the test plane area intensity varies less than 1 percent, the nominal value of 
intensity is almost 100 percent. Therefore, 93 percent would be the minimum 
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Figure 10. Two scans of relative intensity in the test plane, 
one at the center and one at the edge. 



2.6 3.0 3.5 4.0 4.6 S.O 6.5 


DISTANCE FROM ARRAY - METERS 

Figure 11. Test plane edge variation in intensity as a function of 
distance from the lamp array. 
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Figure 12. LeRC array test plane uniformity as a function of 
distance from the array. 


acceptable. To analyze the decrease in nominal value due to varying intensity 
from each lamp, a run was made with lamps varying at random up to 30 percent. 
The absolute power dropped in percentage but the nominal value was still almost 
100 percent ( 99. 9 percent). The variation in lamps is not as evident in the 
MSFC array as much as in the LeRC array because the MSFC lamp-fresnel lens 
combination has a wider cone angle and a higher density of lamps per unit area. 

As the distance to the lamp array is decreased, the number of lamps 
averaged at a point in the test plane decreases. This does not result in a 
decrease in irradlance at the point in the test plane because the individual lamp 
Irradiance increases. The Increase in irradlance is inversely related to the 
square of the distance (Fig, 7) but the decrease in number of lamps averaged 
is directly related to the square of the distance due to the decreasing area 
covered hy the cone of light. The result is that the irradiance from the lamp 
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array Is uniform within the central region as the distance is increased from the 
lamp array. This is true only within a limited range near the lamp array. As 
the distance increases, the edge intensity will drop off until there is no flat 
central region as shown in Figure 13. 



DISTANCE FROM CENTERLINE 
OF TEST PLANE ~ METERS 

Figure 13. Test plane uniformity as a function of distance from 
the lamp array — y axis scans. 

An effective number of lamps averaged at any distance from the lamp 
array by a point in the test plane can be computed by defining N, where the test 
plane irradiance equals N times the irradiance from one lamp. 

Figure 14 presents a plot of the effective number of lamps averaged at 
various distances using the intensity profile of Table 1. This curve is important 
because it is representative of the number of lamps averaged at any one point. 
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Figure 14, Effective number of lamps viewed as a function of 
distance from the lamp array. 


The LeRC array averaged approximately 7 lamps at 4.6 m (15 ft) and therefore 
was sensitive to individual lamp variation. At 4,6 m ( 15 ft) the MSFC array 
averages 37 lamps. Even at 2.7 m (9 ft) the MSFC array averages 14 lamps 
and is correspondingly less sensitive to lanr.p intensity variation. 
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As can be seen in Figure 10, the desired tolerance can be achieved by 
operating at a distance of 2. 7 m ( 9 ft) . As the number of lamps average is 
still high, the recommendation was made to adopt 2. 7 m (9 ft) as the standard 
operating distance. For test articles smaller than 1.2 x 2. 4 m (4 x 8 ft) the 
distance can be increased, i 


-I 
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other options to increase the uniformity at distances of 4. 7 m ( 15 ft) or 
greater were analyzed. One option is to increase die array size. The lamp 
array is now unsymmetrical with respect to the 1. 2 x 2. 4 m test plane. Across 
the narrow distance, the lamps extend 0. 35 m (13 in. ) past the test bed edge. 
Across the long axis the lamps only extend 0. 2 m (8 in. ). Expanding the array 
to 15 X 29 would make the system more symmetrical and bring both edges up to 
within 10 percent (the comers would still be down 20 percent). 

The placement of brighter lamps around the edges of the array to improve 
the uniformity was analyzed and proved to be feasible provided 34 percent brighter 
lamps could be used. Since the maximum variation measured was 28 percent, 
this could probably not lie obtained by measuring all tlie purchased lamps and 
picking the brighter ones for the edge. The placement of brighter bulbs near 
the edge, however, would be a metliod of arranging lamps to achieve the maxi- 
mum uniformity for a particular set of lamps at a standard operation spacing. 

The unifomiity is good for only one spacing ( Appendix A) . 

Of all the options considered, tlie reduction of the standard operating 
distance involved the least cost and time impact to the present system which is 
well on the way to completion. 


CONCLUSIONS 


The experimental measurements and tlie computer analysis revealed no 
real problems with the design of tlie solar simulator lamp array. A recommen- 
dation was made to change the standard operating distance for the test specimen 
to 2.7 m (9 ft). This recommendation was made because the edge intensity 
drop-off would be less tlian 7 percent and enough lamps would still be averaged 
to keep the central region uniformity lietter than 2 percent. 

The irradlance measurement of tlie 10 lamps indicated more data are 
needed on individual lamp variation to make realistic predictions of total 
irradlance of the lamp array. Additional data are also required on lamp life 
and variations in irradiance with age. These data will be obtained during lamp 
array checkout. 

Measurements of the lamp fresnel lens combination indicated the lamp 
should be positioned 3 mni (0. 1 in. ) from the fociJ point of the fresnel lens to 
keep from imaging the lamp at the test plane. 
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The intensity profile of the light cone from the lamp fresnel lens com- 
bination is not a true Gaussian curve but is very close. The point-by- point 
storage of a measured curve used the computer program is probably not 
necessary for realistic analysis; a Gaussian equation could be used. 


Measurements of tlie lamp intensity versus voltage show the lamp 
intensity varies linearly with voltage but has slope changes above 75 and 100 V. 





APPENDIX A 

EXAMPLE RUNS OF COMPUTER PROGRAM LUMP 
(LAMP UNIFORMITY MAPPING PROGRAM) 
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EXAMPLE OF EXECUTION OF LUMP PROGRAM* 


!SET FtZOI/OASTT 

ISET F:10P - LP 

IFORTA LUMP OVER LUMPC 
EXT. FORTRAN IV, VERSION FOO 
OPTIONS >BC,NS 

IRUN LUMPC 

LINKING LUMPC 
*Pr ASSOCIATED. 

•STOP* 0 

|••**••PROGRAM HAS BEEN RUN AND RESULTS PRINTED ON THE LINE PRINTER 


DATA CAN BE CHANGED AND PROGRAM RERUN AS FOLLOWED 


lEDIT DASTT 
EDIT HERE 
•TY1 

1.000 10P.0 

•SE1;/10P/S/1P0/jTy 
1.000 1P0.0 

•END 


liUN LUMPC 

LINKING LUMPC 
•PV ASSOCIATED. 
•STOP* 0 

I 


! 


•fWOnUCIBT^V 0^ 
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OITPUT DATA PACE 1 


lam^Tntcn'SIty array 


1 

12*7 

12. 

7 

12.7 

12.7 

12. 

7 

17.7 

12.7 

12.7 

12.7 

12*7 

12.7 

12.7 

12.7 

12.7 

12«7 

i 

12.7 

12. 

7 

12.7 

12.7 

12. 

7 

17.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12»7 

12.7 

12.7 

3 

12.7 

12. 

7 

12.7 

12.7 

12. 

7 

1?.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

lg>7 

A“ 

XTTT- 


7~ 

"TFTT- 

12*7 

1?. 

7 

12.7 

12. 7 

12.7 

12.7 

12.7 

12* 7 

12.7 

12*7 

12.7 

12*' 

5 

12.7 

12. 

7 

12.7 

12.7 

12. 

7 

12.7 

12.7 

12.7 

12.7 

12.7 

:2.7 

12*7 

12«7 

12.7 

12.7 

* 

12.7 

12* 

7 

12.7 

12.7 

12. 

7 

12*7 

17.7 

12.7 

12.7 

12.7 

12.7 

12.7" 

12.7 

~1?.7 

12.7 

7 

12.7 

1?. 

7 

12.7 

12.7 

12. 

7 

12.7 

17.7* 

12.7 

12.7 

12.7 

12.7 

12«7 

12.7 

1?.7 

12*7 

a 

12.7 

12* 

7 

12.7 

12.7 

12. 

7 

1 7»7 

17.7 

12.7 

12i7 

12.7^ 

12«7 

12.7 

12.7 

12.7 

12.7 

9 

12.7 

12. 

7 

12.7 

12.7 

12. 

7 

17.7 

17«7 

12.7 

12.7 

12.7 
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lamp intensity array 
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12.7 

12 

7 

12.7 

12.7 

12*7 

17.0 

17.0 

7 

17«0 

17.0 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

1? 

7 

12.7 

12.7 

12.7 

17.0 

17.0 

8 

17.0 

17.0 

12.7 

12.7 

12.7- 

12.7' 

12.7 

12.7 

12.7 

12 

7 

12.7 

12.7 

12.7 

17.0 

17.0 

9 

17.0 

17. C 

12.7 

12.7 

12#7 

lp.7 

12.7 

12*7 

12*7 

12 

7 

12.7 

12.7 

12.7 

17.0 

17.0 

10' 

17.0 

~17?C' 

' rp .-T' 


r^T 

12.-7' 

~r2'.7 

12.7 

12.7 

12 

7 

12.7 

12.7 

12.7 

17.0 

17.0 

11 

17.0 

17.0 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12 

7 

12.7 

12.7 

12.7 

17.0 

17.0 

12 

17.0 

17.0 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12 

7 

12.7 

12.7 

12.7 

17.0 

17.0 

13 

17.0 

17.0 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12 

7 

12.7 

12.7 

12.7 

17.0 

17-0 

lA 

17. C 

17.0 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12 

7 

12.7 

12.7 

Id. 7 

17. 0 

17.0 

15 

17.0 

17.0 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12 

7 

12.7 

12.7 

12.7 

17.0 

17.0 

16 

17*0 

~lTi 0* 



-T?77 IPiT 

12.7 

12.7 

12.7 

12 

7 

12.7 

12.7 

12*7 

17.0 

17.0 

17 

17.0 

17.0 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12 

7 

12.7 

12.7 

12.7 

17.0 

17.0 

18 

17.0 

17.0 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

1? 

7 

12.7 

12.7 

12.7 

17.0 

17.0 

19 

17.0 

17.0 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

1 2.7 

12 

7 

12.7 

12.7 

12.7 

17.0 

17.0 

20 

17.0 

17.0 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12 

7 

12.7 

12.7 

12.7 

17.0 

17.0 

21 

17.0 

17.0 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12 

7 

12.7 

12.7 

12.7 

17.0 

17.0 

22 " 

17.0 

■ 17.0 ■ 

• 12.7 

12.7 

-ir.T- 

l'2r7 

”12.7 

12.7 

12.7 

12 

7 

12.7 

12.7 

12.7 

17.0 

17.0 

23 

17.0 

17.0 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12.7 

12 

7 

12.7 

12.7 

12.7 

17.0 

17.0 

24 

17.0 

17.0 

12.7 

12.7 

12.7 

12.7 

12,7 

12.7 

12.7 

12 

7 

12.7 

12.7 

12.7 

17.0 

17.0 

25 

17.0 

17.0 

17.0 

17.0 

17.0 

17.0 

17.0 

17.0 

17.0 

17 

0 

17.0 

17.0 

17.0 

17.0 

17.0 

26 

17.0 

17.0 

17.0 

17.0 

17.0 

17.0 

17.0 

17.0 

17.0 

17 

0 

17,0 

17.0 

17.0 

17.0 

17.0 

27 

17.0 

17.0 

17.0 

17.0 

17.0 

17.0 

17.0 

17.0 

17.0 

17 

0 

17.0 

17.0 

17.0 

17.0 

17.0 


to 

-a 






SAMPLE RUM WIH 




Htpe ARRAY AND 6 

IN FL LPN8 




INTINSitY AT 

9*0 PEFT 

"units' are 

BTU/HR^FT2 


X PBS IN 


V SCAN PBS 

IN INCHES 



mcHn — 

•ABaO 

•36*0 

• 24*0 

•12*0 

*0 

•30*0 

522*5 

508*1 

501.8 

504*8 

501.5 

•fl*0 

““BIT?.!" 

' 524*0 

518*3 

518*4 

514*6 

•26*0 

557** 

523*1 

518*1 

517*9 

516*3 

•?A*0 


5l8*i 

511*1 

510*6 

504*7 

■22*0 

56q*2 

5gS*l 

497*3 

497*6 

496*7 

•20*0 

5SS*1 

49"3V3 

483*1 

486*8 

485*3 

• 18*0 

553*5 

485*9 

475*5 

477*5 

473*9 

• l6tQ 

“~5AI^F 

47li*S 

472*1 

470*8 

469*8 

•1A*0 

5A9*0 

478*9 

469.9 

469*3 

465*3 

‘•12*0 

■ 5AB*1“ 

"477*6 

488*9 

468*8 

468*6 

•10*0 

55l *6 

476*3 

466* 1 

469*6 

467.7 

•B«o 

55q*1 

4^TTS 

467.2 

468 * 7 

465.3 

•6«0 

5A6*9 

475*9 

468.3 

467*3 

466*2 

• A«b 

5a§*5 

"477i8 

468.9 

468*4 

464*0 

•2*0 

549*1 

477*2 

468.6 

468*5 

468*2 

#0 ■ ■ 

- 55^,-*-“ 

478*3 

466. 1 

469*6 

467.7 

2*0 

55o*l 

477*5 

467*2 

468.7 

465*3 

4*0 

B4bT9~ 

4TB71 

468*3 

467*3 

466*2 

6*0 

548*5 

477*8 

468.9 

468*4 

464*0 

ito • 


477*2 

468.6 

468*5 

468*2 

10*0 

55l *8 

476*3 

466.1 

469*8 

467.7 

■ ■ 12*0 ■ " 

55fl * 1 

477 *'8 

467 . 5 

469*0 

465*3 

1A*0 

548*9 

478*9 

469.3 

468*4 

467 * 1 

TFiB 

3*9*« 

EFf*T~ 

472^ 

472*1 

467 *2 

18«0 

551*8 

485*6 

477.5 

477.0 

477.3 

20*0 

“558*5“ 

492*7 

483.0 

487*4 

484*9 

22*0 

557*4 

504*8 

496.0 

497*1 

495*3 

?AfO 

558*6 

515*3 

510.6 

509*2 

508*3 

26t0 

554*8 

524*8 

518.9 

518*3 

515.2 

2FTD 

S42*# 

521 *B 

BlT.T* 

5l8*6 

5l7*0 

30*0 

518*8 

M^UmT~rnmm 

5o5.3 

501.9 

503.6 

502*4 


C9HPLETE 
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SAMPI£ RUN WITH 

lAMP DATA AS ON 

PAGE A6 


“ MSFC A^RaY and 6 

TN FL LFNS 




intensity AT 15*0 TEFT' 

UNITS are 

8TU/HR.FT2 


X P6S IN 


V SCAN P8S 

IN INCHES 



“INCHES" " 

•45*0 

• 36*0 

•24*0 

•12*0 

• 6 

•30*0 

376*« 

421*3 

413*0 

612*1 

412*5 

•?8*0 

A02*B 

447*0 

■■■ 437*0 

437*7 

436*7 

•26*0 

423*9 

468*7 

456*6 

455*8 

455*8 

•2A«0 

~ 433*4 

484*5 

47l*r 

469*8 

470*8 

•22*0 

452*1 

494*8 

479*7 

478*0 

477*1 

"•20»0 



5MT1 

483*3 

¥1171 

483*1 

• 18*0 

465*0 

502*6 

483*9 

484*1 

483*5 

• 16*0 

467*9" 

5o3*0 

4l3*4' 

481 *5 

48l*i 

•IA*0 

467*3 

5ol*5 

481*9 

478*5 

480*4 

•12*3 

467*6* 

499*4 

■ 477*9 

475*9 

475*3 

•10»0 

466*9 

496*9 

475*0 

473*6 

473*1 

•‘8*0' 


43^*3* ' 

472*7 

49F*1 

471*7 

•6*0 

466*7 

493*5 

471*1 

469*7 

468*8 

• 4*0 

464*6 

493*0 

471*3 

468*5 

469*9 

• 2*0 

464*8 

49?*S 

469*8 

467*8 

467*6 

• 0 

'“ 464*4 

491*9 

469*1 

467*6 

467*5 

2*0 

464*8 

492*4 

469*4 

469*1 

468*6 

Hi-Q 

— rorr" 

492*7 

■ ■“470*2 

' ■ 468*6 

467*9 

6*0 

464 * 8 

493*8 

472*3 

469*3 

470*9 

8*0 

465*9 

495*0 

472*9 

471*1 

470*4 

lO'O 

466*4 

496*9 

475*0 

473*2 

473*5 

12*0 

466*8 

499*1 

477.4 

477*0 

476*6 

1A*0 

468*1 

5nl *0 

480*7 

479*2 

478*5 

482*8 

18»0 ■■ 

466 *r ■ 

8o2*4 

4ff4‘* 2 

48 1*6 

18*0 

463*3 

5q2*6 

484.6 

482*3 

483*0 

20*0 

458*7 ' 

499*2 

483.1 

483*0 

481*8 

22*0 

449*6 

494*2 

479.6 

478*5 

479*0 

2«*0 

- 438*2 " 

- - 483*3 

470*6 

469*5 

469*1 

26*0 

42o*6 

467*2 

457*4 

455*9 

456*9 

"437il 

2»TC — 

398*8~ 

Frrri 

5T7*'4 

4^6*2 

30*0 

PR6GRAN 

372*9 

COMPLETE 

419*3 

412*8 

412*6 

412*1 
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APPENDIX B 

LISTING OF LUMP WITH EXAMPLE OF INPUT FILE DASH 


30 


PROGRAM LUMP \\\\\\\\\\\\\TY 1-50 

1.000 C LAMPS UNIFORMITY MAPPING PROGRAM 

2.000 C PROGRAM SET FOR MSFC ARRAY 

3.000 DIMENSION TLX(35, 35), TLYC35, 35), TLI (35,35), TPI (10,100) 

A. OOO DIMENSION TTPX(100),TTPY(30) 

5.000 REWIND 201 

6.000 READ(201,10) SPACE 

7.000 10 FORMAT(FIO.I) 

B. OOO C SPREF IS SPACE REF FOR INTENSITY 

9.000 C SPREF - DISTANCE AT WHICH POWER READING IS TAKEN 

10.000 SPREF • 1B0.0 

11.000 NLX - 15jNLY - 27 

12.000 DO 50 I - 1,NLY 

13.000 REAO(201,100) NLX, (TLI(I,J),J - 1,NLX) 

1A.000 50 CONTINUE 

15.000 100 FORMAT (NF4.1) 

16.000 NCO - 0 

17.000 IF(NCO.EQ.I) GO TO 115 

18.000 WR|TE(108,105) 

19.000 105 FORMA T(1H1, ’LAMP INTENSITY ARRAY*,//) 

20.000 DO 110 I - 1,NLY 

21.000 WRITE(108,120) I ,NLX,(TLI (I ,J),J - 1,NLX) 

22.000 110 CONTINUE 

23.000 115 CONTINUE 

2A.000 120 FORMATdH ,1 3,2X,N(F4.1,2X)) 

25.000 C BUILD UP X,Y SPACING 

26.000 TSPX • 5.0 

27.000 TSPY - A.33 

28.000 XI - -36.25 

29.000 DO 160 J • 1,NLX 

30.000 Y1 - +56.29 

31.000 00 150 I - 1,NLY,2 

32.000 TLX(I.J) • XI 

33.000 TLY(I,J) • Y1 

34.000 Y1 - Y1-(TSPY*2.0) 

35.000 150 CONTINUE 

36.000 XI - X1+TSPX 

37.000 160 CONTINUE 

38.000 XI - -33.75 

39.000 DO 210 J ■ 1,NLX 

40.000 Y1 • +51.96 

41.000 00 200 I • 2,(NLY-1),2 

42.000 TLX(I,J) - X1;TLY(I,J) - Y1 

43.000 Y1 • Y1 - (TSPY*2.0) 

44.000 200 CONTINUE 

45.000 XI - X1+TSPX 

46.000 210 CONTINUE 

47.000 C OPTION TO PRINT OUT X,Y LOCATIONS 

4R.000 NCOOE - 0 

49.000 IF (NCOOE. E0.1) GO TO 340 

50.000 WRITE(108,305) 


31 

REPRODUCIBILITY OP THE 
♦ )RK;IN’A!. page is poor 


PROGRAM 

51.000 

52.000 

53.000 

54.000 

55.000 

56.000 

57.000 

58.000 

59.000 

60.000 
61.000 
62.000 

63.000 

64.000 

65.000 

66.000 

67.000 

66.000 
69.000 

70.000 

71.000 

72.000 

73.000 

74.000 

75.000 

76.000 

77.000 

78.000 

79.000 

80.000 
81.000 
« 2.000 

83.000 

84.000 

85.000 

86.000 

87.000 

88.000 

89.000 

90.000 

91.000 

92.000 

93.000 

94.000 

95.000 

96.000 

97.000 

98.000 

99.000 
100.000 


LUMP \\\\\\\\\\\\\TY 51-100 

305 F0RMAT(1H1,*X,Y POSITION OF LAMP ARRAY-IN INCHES’) 
00 310 I - 1*NLY 

WRITE (108, 320) I ,NLX, (TLXd ,J),J - 1,NLX) 
*WRITE(108,322) NLX, (TLY(I,J),J • 1,NLX) 

310 CONTINUE 

320 FORMATdH ,1 3,2X,N(F5.1,2X)) 

322 FORMATdH ,5X,N(F5.1,2X>) 

C START INTENSITY SCAN CALCULATIONS 
340 CONTINUE 
NLINES - 5 
OELX • 2.0 
TPY - -48.0 
DELY - 12.0 

SX • -30.0; ALX - 30.0 
LIM . 1 ♦ |FIX((ALX-SX)/0ELX) 

TSX • SX-OELX 
00 350 I - 1,LIM 
TTPX(I) - TSX-K)ELX 
350 TSX • TTPX(I) 

OUMY - TPY-OELY 
00 360 I - 1, NLINES 
TTPY(I) - 0UMY4OELY 
360 OUMY - TTPY(I) 

00 600 L - 1,NLIKES 
LP - 1 
TSX ■ SX 

400 TPKL.LP) • 0.0 
00 500 J - 1,NLX 

00 500 I • 1,NLY 

OX - TLX(I,J)-TSX; OY - TLY(I,J)-TPY 

01 ST - SQRT(OX*OX-K)Y*OY) 

ANGLE - ATANCOI ST/SPACE) 

ANGLE • ANGLE*180.0/3. 14159 
IF(ANGLE.GT.IO.O) Tl - 0.0; GO TO 450 
CALL IVSA(ANGLE.TI) 

TLENGT - SQRT(OIST*OIST ♦ SPACE *SPACE) 

TMFAC • (SPREF*SPREF)/(TLENGT*TLENGT) 

450 CONTINUE 

Tl - TI*TMFAC*TLI(I,J) 

TPKL.LP) - TPI(L,LP)^TI 
500 CONTINUE 
LP - LP-^1 
TSX - TSX-K)ELX 
IF(TSX.LE.ALX) GO TO 400 
TPY • TPY +OELY 
600 CONTINUE 

C PRINT OUT OATA ON SCAN 
WRITE(108,650) 

650 F0RMAT(1H1,*MSFC ARRAY AND 6 IN FL LENS') 
WRITEdOe.TOO) SPACE/12.0 


PROGRAM 

101.000 

102.000 

103.000 

104.000 

105.000 

106.000 

107.000 

loe.ooo 

109.000 

110.000 
111.000 
112.000 

113.000 

114.000 

115.000 

116.000 

117.000 

118.000 

119.000 

120.000 
121.000 
122.000 

123.000 

124.000 

125.000 

126.000 

127.000 

128.000 

129.000 

130.000 


LUMP \\\\\\\\\\\\\TY 101-130 

700 FJRMATCIHO,’ INTENSITY AT*,F8.1,2X, TEET%10X, 
X* BTU/HR-FT2*,///*X P5S IN*,15X/Y SCAN PCS II 
WRITECIOe.POO) NLINES,(TTPY(I),I - 1, NUNES) 
800 F5RMATnNCHES*,1X,N(FP.1,5X)) 

DO 1000 I - 1.LIM 

WR|TE(108,1100> TTPX(I),NLINES,<TPI(J,I),J - 
1000 CONTINUE 

1100 F0RMAT<F6.1,2X,N(FP.1,5X)) 

OUTPUT ’PROGRAM COMPLETE* 

END 

C SUBROUTINE TO OBTAIN INTENSITY VS ANGLE 

SUBROUTINE I VSACANGLEJI ) 

DIMENSION ANG(11),AI (11) 

DATA (Aid), I - 1,11)/100.0, 98.0, 93.5, 80.0, 63 
X24.3, 12.5,4.2,2.5, 1.8/ 

DO 100 I • 1,11 
ANG(I) - FLOAT(I-I) 

100 CONTINUE 

IF(ANGLE.GT.IO.O) Tl • 0.0;G0 TO 1000 
C INTERPOLATE INTENSITY 

I - 0 

200 I - K1 

IFd.GE.11) Tl - 0.0; GO TO 1000 
IF(ANGLE.GT.ANGd)) GO TO 200 
IF(ANGLE.EQ.ANGd)) Tl - Aid); GO TO 1000 
SLOPE - (Al(l)-Al(l-1))/(ANG(I)-ANG(I-1)) 

Tl - SL0PE*(ANGLE-ANG(I-1))+Ald-1) 

1000 Tl - Tl*0.ni 
RETURN 
END 


UNITS ARE*, 
I INCHES*) 

l,NLINES) 

5,42.0, 
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EXAMPLE OF INPUT FILE OASTT 


TY1-2P 


1. 

000 


108.0 










2. 

000 

12. 

712.712. 

,712, 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

3. 

000 

12. 

712.712, 

.712, 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

4. 

000 

12. 

712.712. 

,712. 

.712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

5. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

6, 

000 

12. 

712.712. 

.712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

7. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

P. 

000 

12. 

712.712. 

,712, 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

9. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

10. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

11, 

000 

12. 

712.712. 

.712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

12. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

13. 

000 

12. 

712.712. 

.712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.^12. 

712. 

712.7 

14. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712. n2. 

712. 

7'i2,7 

15. 

000 

12. 

712.712, 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

16. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

17. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

18. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

19. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

20. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

21. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

22. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

23. 

000 

12. 

712.712. 

,712. 

.712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

24. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

25. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

26. 

000 

12. 

712.712, 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

27. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 

28. 

000 

12. 

712.712. 

,712. 

,712. 

712.712. 

712. 

712. 

712. 

712.712.712. 

712. 

712.7 
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TLX 

TLY 

TLI 

TPI 

TTPX 

TTPY 

201 

SPACE 

SPREE 

NLX 

NLY 

NCO 

TSPX 

TSPY 

XI 

Y1 

NCODE 

NUNES 

DELX 


LIST OF VARIABLES USED IN LUMP 
{ .n the order they appear in the program) 

Array for storage of x location of lamps 

Array for storage of y location of lamps 

Array for storage of lamp intensities 

Array for storage of test plane point intensities 

Array to store x location of points in test plane 

Array to store y location of points in test plane 

Input unit number 

Distance from lamp array to test plane 
Distance at which lamp intensity measured 
Number of lamps in x direction 
Number of lamps in y direction 

Code to obtain printout of lamp intensity array. If valve is 
set to 1 there will be no printout of lamp intensity array. 

Spacing of lumps in x direction 

Spacing of lamps in y direction 

First lamp position in x direction 

First lamp position in y direction 

Code to obtain printout array of lami) positions if set equ:d 
to 1 printout will not be obtained 

Number of scan lines to be calculated 

Distance Ixjtween points to be calculated in tlu* x direction 


TTY 

DELY 

SX 

ALX 

LIM 

TSX 

DUMY 

DY 

DY 

DIST 

ANGLE 

IVSA 

TLENET 

TMFAC 

TI 


y position of first scan line to be calculated 

Distance between scan lines 

First point in test plane scan line to be calculated 

Last point in scan line to be calculated 

Number of points to be calculated in each scan line 

Dummy variable tc* hold x scan position during; calculation of 
intensity 

Dummy variable to hold y scan position during calculation of 
intensity 

Calculated x separation between lamp and test plane point 

Calculated y separation between lamp and teat plane point 

Diagonal distance from lamp to test plane point 

Calculated angle from lamp center line to test plane point 

Subroutine to calculated lamp intensity at the csilculated angle 

Distance from lamp to test plane point 

The multiplication factor to adjust limp Intensity for 
different spacings to test plane 

Dummy variable to hold intensity calculated at test plane 
point 


36 


APPROVAL 
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By Donald B. Griner 


The information in this report has t'e«.n reviewed for aecuilty classifica- 
tion. The report, in its entirety, has been determined to be unclassified and 
contains no information concerning Department of Defense • Atomic Energy 
Commission programs. 

This document has also been reviewed and approved inr technical 
accuracy. 



Deputy, Optical and RF Systems Division 


F. BROOKS MOORE 

Director, Electronics and Control Laboratory 
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